home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Linux / Kubuntu 8.10 / kubuntu-8.10-desktop-i386.iso / casper / filesystem.squashfs / usr / share / foo2zjs / crd / prolog.ps < prev    next >
Encoding:
Text File  |  2008-09-09  |  2.1 KB  |  79 lines
  1. %!PS
  2. %
  3. % $Header: /home/cvs/foo2zjs/crd/zjs/prolog.ps,v 1.3 2004/07/02 11:45:14 rick Exp $
  4. %
  5. % Copyright (C) 2004  Gerhard Fuernkranz
  6. %
  7. % This program is free software; you can redistribute it and/or modify
  8. % it under the terms of the GNU General Public License as published by
  9. % the Free Software Foundation; either version 2 of the License, or
  10. % (at your option) any later version.
  11. %
  12. % This program is distributed in the hope that it will be useful,
  13. % but WITHOUT ANY WARRANTY; without even the implied warranty of
  14. % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15. % GNU General Public License for more details.
  16. %
  17. % You should have received a copy of the GNU General Public License
  18. % along with this program; if not, write to the Free Software
  19. % Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  20. %
  21.  
  22. % setup initial clipping,
  23. % redefine initclip to clip 4mm (approx 12pt) on each side
  24.  
  25. /m2300wBorder 4
  26.   25.4 div 72 mul def
  27.  
  28. /m2300w_initclip {
  29.   initclip clippath pathbbox
  30.   m2300wBorder 2 mul sub 4 1 roll
  31.   m2300wBorder 2 mul sub 4 1 roll
  32.   m2300wBorder add 4 1 roll
  33.   m2300wBorder add 4 1 roll
  34.   rectclip
  35. } bind def
  36.  
  37. << /BeginPage { pop m2300w_initclip } bind >> setpagedevice
  38.  
  39.  
  40. % setup CIE based color rendering
  41.  
  42. << /UseCIEColor true >> setpagedevice
  43.  
  44. revision 800 ge {
  45.  
  46.     /DefaultGray
  47.     [ /CIEBasedA <<
  48.       /DecodeLMN [
  49.       { dup 0.03928 le
  50.           {12.92321 div}
  51.           {0.055 add 1.055 div 2.4 exp}
  52.         ifelse
  53.       } bind dup dup
  54.       ]
  55.       /MatrixLMN [0.412457 0.212673 0.019334
  56.                 0.357576 0.715152 0.119192
  57.                 0.180437 0.072175 0.950301]
  58.       /WhitePoint [0.9505 1.0 1.0890]
  59.     >> ] /ColorSpace defineresource pop
  60.  
  61.     /DefaultRGB
  62.     [ /CIEBasedABC <<
  63.       /DecodeLMN [
  64.       { dup 0.03928 le
  65.           {12.92321 div}
  66.           {0.055 add 1.055 div 2.4 exp}
  67.         ifelse
  68.       } bind dup dup
  69.       ]
  70.       /MatrixLMN [0.412457 0.212673 0.019334
  71.                 0.357576 0.715152 0.119192
  72.                 0.180437 0.072175 0.950301]
  73.       /WhitePoint [0.9505 1.0 1.0890]
  74.     >> ] /ColorSpace defineresource setcolorspace
  75.  
  76. } if
  77.  
  78.  
  79.